library(ssh)

session <- ssh_connect(host = 'polardbvpn@39.100.4.116:50122',passwd = 'bV2DBB3Rg0s2YLzObVdDBBVag0s2YLzO')

ssh_tunnel(session = session,port = 3306,target = 'pc-8vbtscp0nlit41squ.rwlb.zhangbei.rds.aliyuncs.com:3306')



library(RMySQL)

con <- DBI::dbConnect(RMySQL::MySQL(),
                      username = 'polardb_zhongyf',
                      host = '127.0.0.1',
                      port = 3306,
                      password = '30HLrLgM7lD6gxjB',
                      dbname = 'wxys')
con

dt <- dbGetQuery(con,'select * from ys_user')

order_dt <- dbGetQuery(con,'select * from ys_order')

object.size(order_dt)

con
